10 @3:@2:POKE50913,1:POKE50959,1:POKE50918,0:POKE50964,0:POKE50923,0:POKE50969,0
20 X1%=0:X2%=320
30 FORY=0TO200STEP8
50 Y1%=Y:Y2%=200-Y
60 @4,X1%,Y2%:@7,X2%,Y1%,0
70 NEXTY
80 Y1%=0:Y2%=200
90 FORX=320TO0STEP-10
100 X1%=X:X2%=320-X
110 @4,X2%,Y1%:@7,X1%,Y2%,0
120 NEXTX
130 @4,0,0:@7,319,0,0:@7,319,199,0
140 @7,0,199,0:@7,0,0,0
145 FORN=0TO50
150 C1%=16*RND(0):C2%=16*RND(0)
160 IF(C1%=C2%)GOTO150
170 POKE646,C1%:POKE53281,C2%
180 FORI=0TO100:NEXT
190 NEXTN
200 POKE53281,6:PRINT"[147]PRINT BURST PATTERN (Y/N)?":@1
210 GETC$:IF(C$="")GOTO210
220 IF(C$<>"Y")THENPRINT"[147]":END
230 @2:@14:PRINT"[147]":@1:END